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About this book 



This book contains simple games 
programs to play on a microcomputer. 
They axe written for use on ZX8 1 (with 
extra memory ) . ZX Spectrum, BBC. VIC 20. 
Dragon. One, TRS-80 and Apple. The mam 
listing for each program works on the 
ZX8) and lines which need changing for 
the other computers are marked with 
these symbols: 
a VIC and Pet 

• BBC 

■ TRS-80 

• Apple 

• ZXSpectrum 
v Dragon 
OOnc 

Every time you see the symbol for the 
computer you are using, look below for 
the corresponding line number with the 
same symbol and type that in instead 

Running the programs 

When you have typed in the listing, check 
it carefully Remember that it is very easy 
to make mistakes when you are typing 
programs, even if you are quite 
experienced. To start the game, type RUN 
If the program doesn't work properly, it is 
quite likely thai there is still a mistake in it 
somewhere, so LIST the program and 
check agam. When the game is over, the 



computer will say something like BREAK 
IN 200. To play again, you have to type 
RUN. 

Experimenting with the 
programs 

There are suggestions for changes you 
can make to the programs throughout the 
book, but don't be afraid to experiment 
with changes of your own. As the 
programs are written to fit so many 
different computers, they often do not 
make use of the special features available 
on some computers. In particular they do 
not make any use of graphics, colour or 
sound You could try rewriting the 
programs for your computer using its 
graphics, sound and any other special 
features it may have 

Changing the speed 

Next to some of the games you will find 
instructions for changing the speed. You 
may well find you need to do this as these 
games depend on the speed of both your 
computer and your reactions You will 
almost certainly want to speed these 
games up after you have played them a 
few times many case 



Computer Nightmare is based on an idea by Brendon Kavanagh 
Number Wizard, Ghost Guzzler and Ghost Maze were written by Colin Reynolds 
Spider-woman was written by Val Robinson. Gravedigger by Alan Ramsey 
Mad House by Keith Campbell and Seance by Chris Oxlade 

Illustrated by Rob McCaig 
Edited by Jenny Tyler 
Program editor: Chris Oxlade 

Fast published in 1983 by Usbome Publishing Lid. 20 Gamck Street. London WC2E 9BJ C 1963 
Usbome Publishing Ltd. 



The name Usbome snd the device 7 ue Trade Marks of Usbome Publishing Ltd 



Computer Nightmare 



You are a late -rug ht computer addict and you've fallen asleep at the keyboard. 
Suddenly your computer comes alive and starts hurling numbers and abuse at you. 
To beat it you have to match the numbers as they appear on the screen. Your starting 
score of 300 is increased if you hit the right number and decreased if you don't. If you 
can get your score up to 500 the computer will give up and you win, but if it goes down 
to zero, you will become a slave to your computer. It's a real nightmare! Can you stay 



i LET FS--0" 
*OV«a#io DIM C«<3.23> 

20 LET 9-300 - 

30 L£T C*<l>""** MICROS RULE* •*- 
40 LET C* (2) -"•PEOPLE ARE STUPID*' 
30 LET Ca<3)«-*A ROBOT FOR PRESIDENT' 
A© LET CS (4) -' 'COMPUTERS ARE GREAT « - 
70 LET CS)<8>-"*!'M BETTER THAN VOU'«- 

ae>eo cls -^— ^— 

•OViAew LET N-INT<RNDo9)«l 

IOO PRINT TABC3MN 
HO PRINT TAB < 13) J S 



How it works 

Sot« afarting vano for toon. 



Clean 

CkOOMHB 

— HlaN 



froealtet 



♦ 0VBASJ120 
130 
140 
I30 



IE RNDM>.3 THEN BOTO 130 

PRINT 

PRINT C*<INT<S/lO0>« I ) 

IF S<60 THEN PRINT - 

-' THERE'S NO M0PE>" 

IF S>440 THEN PRINT "URK • HELP" '" 

FOR I- | TO 10 — 

LET AS-1NKEV* 

IF AS' >-- THEN LET FS-AS 

NEXT I 

LET S-S-IO 

IF VAL<F«X>N THEN BOTO 24© 

LET S-S ♦)<>♦*•? 



240 IF B<0 THEN GOTO 770 
230 IF S>SOO THEN GOTO 290 

2&0 BOTO BO ■—■■■— 

270 PRINT "YOU'RE NOW HV SLAVE " 

28© STOP 

290 PRINT -OK. YOU WIN <THIS TIME) 

SO© STOP 



Tha abcr»»Uatt»g will work oa * ZX8 1 To« J 
tko change* below 

tOVlAfl" DIM CS(3> 
•BO HONE 

ABO PRINT CHRSU47) 
#OA#90 LET N-INT <RND(1 )«9) »| 
V»90 LET N-INT <RND<0>*9>*1 
40A#120 IF RNDO>>0.3 THEN BOTO ISO 
V«1?0 IF RND<0)>O.S THEN GOTO ISO 
OOVlAtl 70 FUR I- 1 TO 400 
•173 A*--" 
•IOO IF PEEK <-to384l ;127 THEN GET AS 
•I BO LET A«-INKEYS<0) 
A1BO GET AS 
OIBO LET AS-KEVS 



1 



I 



Pruts N and row aeon (S) at 
eafferoat potato on the acnoa. 

Docldea whether to go to ISO. 



d*p*ndir.a on 

seers. 

Looks to •** U yoo an preaatahf 
key. If too an. It atom H Is ft. 



•eon by 10 



Ifyoo 



tkawroagkay. 

pun pa lo Uac 240 lo 

i eases sseteese at Una 230 

Chocks aeon lo too Ifyoo kavai 
or loot and jaaipa dowa lo and ea 
If yoa have. 

Gooa back for eaotkar ran. 



I of tb* gaan twpeada ob laia 

r Too will probably aoed lo 

III toBltbaspoodof yooi 

Hor and year rusti— A higher 

m mokes lb* gam* alowof . 



Changes to try 

Lines 20,210 and 230 control 
the scoring. Chang* the 
nnmbera In these lines and 
see what happens. 

Puzzle 

Can you think of s way of 
changing the program to 

i it produce letters on the 
screen instead of numbers? 



Number Wizard 





This is the game the Number Wizard plays with all his visitors . Be conjures the 

numbers 1 to 9 in the air and then rolls two dice. You must give him two numbers 

which both appear in the air and, when added together, give the same total as the two 

numbers on the dice. Once you have used a number, Its image disappears from the air 

and you cannot use it again. Ton win if all the numbers have disappeared before all 

your turns are used up. (You get an extra turn for every double the Wizard throws. ) 

You are allowed to use zero as many times as you like as one of your numbers. If y ou 

t go, move on to the next turn by using two zeros. See how many times you can beat 

the Wizard. 







lO PRINT "THE NUMBER WIZARD" 
20 Did AUO) 



SO LET T-8- 



40 FOR 1-1 TO IO 
SO LET AUJ-1 
60 NEXT I 
*«70 CL8 

80 LET A(l)«l^— 



How the program 
works 

■ Sotc tap an array, A 



Loop* round putting; a 1 Into 

>taiA. 



90 LET V-O — 
lOO FOR 1-2 TO 
1 IO IF AC 1)00 
120 PRINT " "t 
130 LET V-V*l 
MO GOTO 160 
ISO PRINT 1-H 
160 NEXT I 
170 PRINT 
ISO IF V-9 THEN 



IO 
THEN 



GOTO ISO 



Makes nut hi 1 I alway* contain* 1 
(thWUMyoacaaaoeQaamaay 

titMiUTnlikt) 

V keep* count of how oujy Bombtn 
kar» h llB M I < .(lo«loOfor«lar' 



Loop* round printing number* If 
JUl) number has beea used, so it 
Wave* « apace and adds 1 U V 



GOTO 370 



If all 1 



ra have boom used, 
loundga 



TURNS LEFT' 



190 PRINT "YOU'VE "|TI" 

■ *,#[?00 LET C-INT<RMD*6»I > 

•OvJ^lO LET B-INT(RMD*6*I > 

220 PRINT -THE DICE THROW IS "lC|" t 
230 PRINT "WHAT ARE YOUR NUMBERS?" 
240 IF B-C THEN LET T-T*2 ■ 



lB_ 



Tell* yoa bow 



left 



Choose* number* for dice throw and 
pnntathem 



If throw wi 
extra 90. 



r-. 



230 LET T-T-l 

260 If T " THEN GOTO 350 

270 INPUT N 

280 INPUT M 

290 IF M>9 OR N>9 THEN PRINT 
"TOO BIG - TRY AGAIN" 
IF M>9 OR N>9 THEN GOTO 230_J 



a double, gire* you 
by 1, check* T la not 



WTO. 



MM 

310 



IF M>NOB«C OR A<N»l)-0 OR 
A«!H*l>-0 THEN GOTO 70 



1 



320 LET A(N> 
330 LET A<N« 
340 GOTO 70 
3SO PRINT "THE 
360 STOP 
370 PRINT "YOU 
3BO STOP 



1)-0~1 
D-O J 



Goto two number* from you and 
chock* they are valid. 

If they don't add up or erne of them 
ha* been used, go** back for 



II number* are OK. the I • la their 
apace* (a A ax* replaced with 0* to 
•how they t*1 



WIZARD WON' 



WON' 



TaeaborelkMlaawiUworkoaaZ-Xal Tor 
other computer* make the change* below. 



• 70 HOME 

A70 PRINT CHR*CI47> 

•>Oa\4>200 LET C-INT CRNDC1 >»6*1) 

Va*200 LET C-INT CRND<0)*6»1> 

*>OA»210 LET B-INT(RND<1>«6+1> 

VB210 LET B-INT CRNDCO) •/,♦! ) 



Perhaps yoa caa work oat a way 
of making the computer 90 back 
for another game automatically 
and build up a record of how 
many um«* you've worn and loot. 
Too could also work oat a 
terrible fata for player* who loo* 
looBBaayttmo* 



Ghost Guzzler 



< 



. 







4 



The ghosts In this game axe number* rushing across the screen. To catch them, you 
activate your ghost guzzler by pressing key X, but it only works when the number on 
It is the same as that of the attacking ghost. You can increase the guzzler's number by 
pressing key M (whan it gets to 9, it goes back to again). If you fail to guzzle a ghost, 
it will snatch away one of your lives (shown as < top left of the screen). See how good 
you are at guzzling ghosts. 



10 PRINT "GHOST GUZZLER" 
20 LET S-O 
30 LET V-O 



3- 



40 LET L-3 



LET N=1NT <RND»10> 



60 LET 1-1 

A#7D CLS 

80 FOR J-l TO L 
90 PRINT "/"% 
I0O NEXT J 
110 PRINT 
0120 PRINT TABUMNI rABUBM-i-lV 



How the program works 



Set score end yov Hunter to 
far ststt «( hm . 



oflhr*«-u>3 



Gets * nunber between ud 9 for 

Sum coaster for d Wwc t ghost can 
trnrel before rt re nchee yo» 



Loop which pnnii 
top left of the 



•J94M* flUu)ef r MflMI 

•t appropriate poeitione on 



Tub in a good gune tor adding 
to Try addlag tmb- 
for •oenethiag blood ■ 



I Ufa end 
forghoaUio 
make wben they ere fnrlaaf 



■ ■*,• 
•Ov 

•o*,«i3o let b*-inkey« 

140 IF B»--X- THEN GOTO 
130 IF W-H- THEN LET 



220 L 

V-V*l| 



160 IF Y-IO THEN LET Y-O 



Looka taaaa If > v. 
kay . If Z tt* yoa activated «hom* 
, guuler) computer jump* down 
program to chock If yoa are allowed 
to. If M H lacraaaaa your iiabti by I . 



Sauda your a umber back to zero 
whew U reaehoa 10 



170 LET I— 1 ♦ 1 

180 IF I' 18 THEN GOTO 70 



■} 




190 LET L-L-l 



200 IF LM> THEN 80TO SO 

210 GOTO 270 

IF YON THEN 0OTO 1 70 
PRINT "GOT IT- 
PRINT -•••m»»~ 
LET S-S*(18-I> 
GOTO SO 
ELI 



If barrier raacbadL you toaa a life 

Goaa back f a* MMCbar gho« If yo« 

> ifvaalaTL 



i If your aarahar equalled 
ghoat't wbaa yoa guzzled If not gon 
back for aaother ghoet 



260 
A«)770 
2BO 
290 
3O0 
310 

320 
330 

340 



-YOUR GHOST 8UZZLIN6' 
"SCORE IS "IB 



PRINT 

PRINT 

PRINT 

PRINT -ANOTHER GO f 

(PRESS Y OR N)" 

INPUT at 

IF A*-"V- THEN RUN 

IF A*«-N- THEN STOP 




You caa chaage iba apaad of tbia 
> by ehaagl»g the number Ln 
Una 12$ Use a lower auaaber lo 
aukaltfaatar You caa < 
r bazaar by i 
tralaliaa)20 




Tba abort listing artll work oa a ZXB 1 For 


other computer* aiaka Iba change* below 


*Oa\«S0 


LET N*INT (RNDU >alO) 


•090 


LET N*INT(RND<0)alO) 


• 70. 


270 HOME 


A 70. 


270 PRINT CHR*<147> 


O I20 


PRINT SPCUJ »N*SPC 




<I8-I) » -:"|Y 


MtmMsa 

•OVQ27 


FOR K-l TO 30 


NEXT ¥. 


• 128 


LET »♦-•- 


• 130 


IF PEEK (- 16384) > 127 




THEN GET B* 


• 130 


LET BflNKEY«(0) 


•ISO 


BET B% 


0130 


LET B»-#CEY« 


,•£•(243 


FOR K-l TO 300 


*°*[247 


NEXT K 






* 




Spiderwoman 



Eek! It's Spiderwoman! 

Ton might be lucky, she's In a good mood today. If yon can guess the letter she is 

thinking of, quickly enough, she will set you free . If not, you'll probably get turned 

into a fly 
To find the letter, give Spiderwoman a word and she will tell you whether or not her 

letter is in it 



Wf* <~- 






m,':M 



s 



V 







*s 




\ y\ 



l<) LET G-O 
4,8 20 CLS 



How it works 



I* 1 40 



m 



30 
60 
70 
80 
90 
l >f> 

no 

120 
ISO 
140 
ISO 
160 
■»• 

180 
l fO 
200 
210 
220 
?V*A4>230 
240 
230 

6*260 
270 
2S0 
290 
300 

310 

320 
330 
340 

330 
360 
370 
380 
390 
400 
41«> 
420 



LET T-INT<RND*26*38 
LET Ta-CHRUtT' 
PRINT -SPIDERWOnON- 
MAS CHOSEN" 



'} 



-TRY A WORD- 



TO 70 J 



PRINT 
PRINT 
PRINT 
PRINT 

PRINT 

INPUT W* 

LET G-G*l 

LET L-LEN(W*> 

IF L<4 OR L>8 THEN 

LET F-O 

FOR I-I TO L 

LET AU-W* (I TO I> 

IF A»-T» THEN LET 

NEXT I 

IF F-l THEN GOTO 280 

PRINT 

PRINT "IT'S NOT IN TMf 

FOR A-l TO 20 

NEXT A 

IT 8>I3 THEN GOTO 



KQiatKICVBTltlllllOl 

letter and pat* it in TV 



for a 



Keene cow«(Mab« of ooee. 
C kecks If word too IfM or eheet- 



F-l 



Ckecka ttuo««h y ou word lo so* IT 
U f I* i la tb*r» I I H u 9000 lo 200. 



1 



400' 



CLS ^ — ^— ^— — 
GOTO 70 

PRINT "YES - IT'S ONE OF THOSE' 
PR1NT 
PRINT 
<Y OR 
INPUT 
IF R»«' 
PRINT 
PRINT 
THEN 7 " 
INPUT 8* 
IF MOT! THEN GOTO 



"DO 
Nl" 
R» 

•N- 



YOU WANT TO GUESS " 



THEN 80T0 230 



'WHAT IS YOUR 8UESS 



PRINT 

PRINT 

STOP 

PRINT 

PRINT 

STOP 



-OK - YOU CAN 
"(THIS TINF)- 



4IO 
GO" 



• rOU 

'YOU 



ARE 
ARE 



TOO 
NOW 



LATE" 
A FLY" 



If letter aot found In 
word. 

Do lay loop 00 yoa can r*ad awaeeae. 

EndaproaTMlfyoekavekedlSooea. 

Clean eereea. Goea bock for 
another word. 



Pnnii If letter found la yomr word. 
Aaks if yoa went to paaaa If "a©*, 
aooa bock for another word. 



Ftiatsi 
whether < 



\ wu right or not. 



The above Uattno; will work on a ZXBl Toi 
1 the change* bo low. 



• 

A 20 

130 

Oa>4.#>30 

VI 



'■30 
•0 71 



HOME 

PRINT CHR4I147) 

LET T-INT tRWOe26*63> 

LET T-INT (RND<! >»26*63) 

LET T-INT (RND(O) •26*63) 



■^•j|70 LET A*-HID*«W». 1. 1 ) 

* OV l230 FOR A-l TO 300 

•260 HOHF 

6260 PRINT CHR«(I47> 



Experiments to try 

Sat what happen* if you change the 1 5 in 
Una 250 to a smaller number. What about 
changing lac 4 and th« 8 in line 140? 

Change the game 

Spiderwoman ia bored. Ska wan la yon to 
Adjust the program lo do tha following 
If bar letter la In your word , yoa are 
allowed rwo gueeaea at it. but if you guana 
wrong you forfeit five goea. Can you do tl? 




Gravedigger 

It's dark and windy - not the kind of 
night to bo loot in a graveyard, but that's 
where yon are. Yon have until midnight 
to find your way out. Skeletons lurk la 
the shadows waiting to scare you to 
death should you come too close. You 
can dig holes to help keep them away 
but digging is tiring work and you 
cannot manage more than five in one 
game. You have to be careful not to fall 
down the holes you have dug too. 

Grave stones (marked - ) and the 
walls of the graveyard (marked :) block 
your way. The holes you dig are marked 
0, you are * and the skeletons are X. See 
if you can escape. 



How the program works 


50-90 


rill the array A with empty 


no 


lets the number of holes 




allowed. 


120-170 


Code the symbols to be used. 


180-260 


Put the walls into the array. 


270-310 


Choose random positions for the 




gravestones. 


320-390 


Set starling positions for yoa and 




the skeletons. 


400-420 


Pot skeletons into the array. 


440-640 


Calculates your new positktti 


650-740 


Looks to see what Is in new 




position. If nothing, moves to It. 


770-050 


Print various ends to the game 


800-MO 


Print graveyard 


1030-1100 Pot a hole la the array 11 you 




want one. 


1100-1310 Move skeletons. 











aO)lO CLS 




20 PRINT "GRAVE OIGGER" 


30 DIM AM0.20) 




40 DIM Bib) 




SO FOR 1-1 TO 10 




60 FOR J-l TO 20 




|OVaTaafl"/0 LET A < 1 , J) -CODEt- ") 




©0 NEXT J 




90 NEXT I 




tOO LET N-O 




IIO LET X-3 






120 LET Y-CODE<-»-> 




VaU# 

•< 


130 LET B-COOEt"* - ) 


MO LET C-CODE<"0"> 




ISO LET D=CODF(-|") 






160 LET E-CODECX") 






170 LET 2 -CODEC" "J 




ISO FOR J-l TO 10 




1VO LET A(J.l)-D 




200 LET AU,20)-D 




210 NEXT J 




22© FOR J-l TO 20 




230 LET Af 1 . J>«D 




240 LET AOO.JI-D 


230 NEXT J 




26© LET A(V,20»-7 




270 FOR J-l TO 20 




VBaOf 200 LET F-INT<RND»7*2> 




•OtfVO LET 6-INT(RNDsir.« '.) 




300 LET A(F,G>-B 




310 NEXT J 




320 LET H-2 




330 LET N»2 




340 LET B<2>-19 




3SO LET B<4>-!9 




360 LET B<6>-19 




370 LET B<l>-4 




3B0 LET B<3»-3 




390 LET B(S>-2 




40O FOR J-l TO 3 STEP 2 




410 LET A(B<J>,B<J»1>>-E 




420 NEXT J 






•so eosue B60 





4 SO PRINT 

4SO PRINT "ENTER HOVE "IN 

4M> PRINT '(YOU CAN GO N,5, 

EMM* 

470 INPUT AS 

480 IF AS.--N- THEN GOTO 33© 

490 IF AO--E- THEN GOTO 360 

30© IF A*,- -9- THEN SOTO 600 




910 

320 
330 

990 
360 
370 

900 

390 
600 
6IO 
630 
630 
640 
630 
660 

670 
MO 
690 
700 
710 
720 
/ SO 
740 
790 

W . 
//-. 
/BO 



rvo 
too 

BIO 

820 
830 

840 

BSO 

MO 

AO670 
BBC 
890 
fOO 
910 
920 
930 
940 



IF A«-"W- THEN GOTO 630 

GOTO 470 

LET T-N-I 

LET U-M 

GOTO 6SO 

LET T-N 

LET U-M+l 

IF A<T,U>-Z AND H-19 THEN 

OOTO 770 

GOTO 6SO 

LET T-N*l 

LCI U-« 

GOTO 630 

LET T-W 

LET U-H-l 

IF A(T.U)-/ THEN OOTO 710 

IF A(T,U>-D 0f»'A<T,U)-B 

THEN GOTO 690 

IF A(T,U>-C THEM GOTO BOO 

IF A(T f U)-€ THEN GOTO B30 

PRINT "THAT NAY'S BLOCKED" 

GOTO 440 

LET A(N,n>-Z 

LET N-T 

LET n-u 

LET A(N.n>-V 
GOSUB 1030 
GOTO 4O0 

PRINT "YOU'RE FREE»«" 
PRINT "YOUR PERFORMANCE 
RATING IS "I INT ( <6O-W>/60« 
<96*X>) fX~ 
STOP 

PRINT -YOU'VE FALLEN INTO" 
PRINT "ONE OF YOUR OMN 
HOLES- 
STOP 

PRINT "URK* YOU'VE BEEN 
SCARED" 

PRINT "TO DEATH BY A 
SKELETON- 
STOP 

LET A<N,H>-Y 
□ 5 



■ N 



l E I 

I FT 

LET 

IF N>60 

FOR I-I 

FOR J-l 



1 

THEN GOTO 
TO lO 
TO 20 



930 

960 

970 

fM 

990 

1000 

1010 

1020 

1030 

1040 

1 090 

1060 
1070 
10B0 
1090 
1100 
It 10 
I1ZO 
1 1 10 
1 MO 
I IV. 
1 160 
1170 
HBO 
1190 



NEXT J 
PRINT 
NEXT I 
RETURN 

PRINT "THE CLOCK'S STRUCK" 
PRINT -HIDNIGHT- 
PRINT -AGHHHHM' »!!" 
STOP 

If X-O THEN GOTO lllO 
PRINT 

PRINT "WOULD YOU LIKE 
TO DIG- 
PRINT "A MOLE <Y OR N) " 
INPUT B4 

IF B»0"Y- THEN GOTO 1110 
LET X-X-l 

A(R,S>-C 
J-l TO 3 STEP 2 
T-B<J) 
U-BU*I) 
ACT,U*1)-Y THEN GOTO K 
A«T,U-I)«Y THEN GOTO K 



LET 
FOR 
LET 
LET 
IF 
IF 
IF 
IF 
IF 
IF 



A<T-1,U)»Y THEN GOTO I 
A<T*!,U)"Y THEN GOTO I 
A»-"M- THEN GOTO 1 300 
A«--S- AND A<T*|. U>«Z 



THEN GOTO 
1200 IF A»-"N- 

THEN GOTO 
1210 IF A»«"E* 



1270 

AND A(T-|,U>-Z 
1280 

AND A<T,U*|)-Z 



AND H>U THEN GOTO 1240 
1220 IF A»-"E" AND A<T,U-I>-Z 

THEN GOTO 1230 
1230 OOTO 1300 
1240 LET BUM >-B(J*l>*2 
1230 LET b<J. 1 >-B(J*l > -1 
1260 GOTO 1290 
I270 LET B<J>-B<J>*7 
I2BO LET B<J>-B<JJ-1 
1790 LET A(T,U)-Z 
13O0 NEXT J 
1310 RETURN 



wtDwwfcM a ZXI1. Tor 



990 



PRINT CHFf*<A< !,J> > I 



•10,870 HONE 
AI0.870 PRINT CHR*<147> 
0OV«A#7O, 120-170 CHANGE CODE TO ABC 
*0A#280,29O CHANGE RND TO RND<1> 
V«?80.29O CHANGE RND TO RND<0> 






W'lt 



Mad House 



You're trapped in a weird house where everything moves including the wails. If the 
doorways would line up, even for a moment, you could make a dash for freedom. 
You've found a console which appears to control some of the movements in the house. 
Keys X and C make the doorway nearest to you (top of the screen) change direction. 
Keys N and M have the same effect on the doorway furthest from you There doesn't 
seem to be any way of controlling the centre doorway. 

As you frantically wrestle with the knobs on the console, you can hear footsteps 
pounding down the corridor behind you The number top left of the screen shows their 
progress towards you. If you cant escape before the phantom footsteps catch up with 



you. 



iggghhhhh! 



(3,-1 

(31 J 



Bffl 

DIP 
CIS 
PRINT ->*ad 

LET LS-"- 
LET Id- 31 
FOR 1-1 TO 
LET LS-LS* 
NEXT I 

CT-240 

S 

8 

1-1 



If your coapilti has 
sound so* If you ess add 

ind*ff*CtS forth* 

•stop* and for lb* «ad 

of ihr game tf you (ail to 



*s 



How it works 

Sets IBS 2 arrays. On* to I or th* 

position (P) of «*ch doorway. IS* 
other if for the direction rS> in which 
each to moving 

Make a row of stars th* width ( W) of 
IS* serves and pott U la 14. 



(1>-1 "I 
(31--1 _J- 



P<I>-lNf <f<ND« (M 4) M 




•3 



> <• 



• 



Af24Q 



aOVBA. 



LET 

LET 

LET 

FOR 

LET 

NEXT 

CLS 

FOR 1-5 TO 13 STEP 

PRINT AT I, OIL* 

PRINT AT I,P< 1/3) | 

NEXT I 

PRINT AT O.OlCTt" " 

IF CT'O THEN GOTO 450 

IF P(ll-P(21 AND PI2)-P(3) 

THEN GOTO 390 

LET 2t-INkEY« 

IF 2*--" THEN GOTO 

IF ZS--X- THEN LET 

IF ZS--C- THEN LET 

IF 2«--N- THEPJ LET 

IF 2S--M- T»*EN LET 

IF CT/25-INT(CT/25> 



Sets footstep coustar To its starting 

vain* 

Sets direction of doorway movement 

at start of gam* 

Goto t aadots starting pontoons f or 
IS« three doorway* 



S(ll — I 

s(i»-i 

8<3> — 1 
8(31-1 
THEN LE 
P(2>-P(2»*INT (RNO*20)-10 
LET CT-CT-I , 



1_ 



Prist* walla and doorway* 

Prints footstep counts r lop toft. 

Chocks tf footstep* have reached 
you If so,juaspsdownto*udgaa*e 



If you've won 



Chocks keyboard (or instructions 
Change* direction of s it is ial, If 

r.bycl 



3IO 

320 LET P<!>-P(l)*8(l) 

330 LET P(3)-P(3)*S<3) 

340 FOR I-t TO 3 

350 IF PUl'l THEN LET P(I)-1 

ZhO IF P(I)Xto-4> THEN LET P ( I » -w-4 

370 NEXT I 

380 GOTO I 70 = 



M ov e * centre doorway every 25 
footstep* 



If 

doorway reach** edge of sere**, 
r keep* H there 



Goo* bock for 



.~X?" LCI l.-P« 1 )♦! 
too FOR l-l TO 13 
TTBAfMlO PRINT AT l.ll"*' 
420 NEXT I 
430 PRINT "VOU ARE FREE ♦•" 



44o STOP 

430 PRINT "TOO L' 

HAVE STOPPED.- 
4cO PRINT -AR8HHH-' 1 
470 STOP 



THE FOOT STEPS 




Prints your dash throng* doorways 
with 



Prints 



Th» luting on tlM I* ft wtU work oa i ZXtl . Toe 
Ihf OOip nt tw a\*ke «h**» c b i b b m . 



O ORIC 



1 40 
I80 

1 'ti' 
2IO 

. ¥ 

410 



IF! < <I>-INT tHHD< I >«<»-4>*l I 

plot 1 . 1 . 1 • 

PLOT P»I/ti>. !." 

PLOT O.O.SIfHUCTI*- • 

■•*,-• I «• 
IF CT/23-lNTICT/23> not lit 
PLOT t, I.-M" 
P4?>-P<7>*INT<RNCMl)»70>-IO 




40 t 

140 Lit PU>-INl imDI|)«>H 4) » »| 
ISO PRIW TABIO.nat 
I90 PRINT TA0<P4|/3> . I 1 I * < <* 
21 PRINT TABtO.OI ICTI ' 
740 LET ;*>|WI ft 

SOO ir CT/2S-1NT(CT/25J TI*N L£T 
P(2>-P<2» .IMt iM)i Jl»7».( 1< 

« 143 PVINT TAB"! . I > |-«* 



* VIC - 

SO PRINT CMR*4I47> 

M> LET M-21 

14<. ITT Pi I >~INT<RNO< I > • '* •»> J • I 

J4VO PRINT 04R«< 14 > 

170 FOB 1*1 TO 3 

172 FOB J-I TO 3 

1 1* PfMNl 

180 NEIT J 

I VO PRINT Lf_F t»U •.P<I)I|»> <"l 

NIGHT* I *. IB-PI II >) 
710 PRINT 0«*44|9I|CT|* * 
740 GET ;• 
lOO IF CT/2S-INKCT/23) THE N 1 I | 

P4 2»-P<2>»INTI*ND«I »»20>-10 
373 PRINT CMN»<I»> 
3*3 PRINT CMR»<|V> 
410 PRINT TA»(L»"H" 



• AF-*1* 



m 

I40 LET P«I»-INI • 

IAO HON* 

ISO VTABH. 

1*3 

190 

1*3 

Ifl 

2IO 

240 

743 

MO 



-1 >•< 



M*l 



PRINT L« 

VTMMIJ 

MTNBCPd 

PRIN! 

VTA0 4I I iHtMdl ■ PRINT 

IF PEEK 4-14W3B4) ,177 TMfN 
IP CT/23-INTICT/73I IMBN LET 
l|>«70>-|0 



rti 



Gf I /• 




P<2>-P(7»*INT < 
3*3 VT«*i|> 
410 PRINT TAB 1 1 ►-« 



W 1 

<U> UTT t#-*3 

I40 L£T P4|>-RMD<<VO> 

FOR 1-7 TO 12 STEP 3 

PRINT*! |a*4> ,L4 

PRINTR4|»4k4|P4 4l»3>/3> >.-> <" 

PRINTRO.CT 

IF CT/23-INT4CT/23I TMEN UTT 

P<7>-P<2» ' R N0 420I-IO 

PftINTB<l*4k4*L>. HP 

DRAflON 

.BO, 90 DCi 
140 LET P(I>*RMDI28> 
170 FOR 1-2 TO 12 STEP 3 
ISO PRINTB32«-I.STRINO«<P4 4|«3l/3> I. 

-•-»!■•> <«-|BTR|NI*»4 2a-* 

( (HSI/ai .-•-!! 
190 DELETE 
210 PRINT*©, CT 
300 IF CT/23-IWTCCT/73) 1WN LET 

P(2)-R(7>*RN0 (201-10 
410 PRINT»4|»32*L» . -H- 

Waat aapp4raa If jo* chu^/m la* 
M1BII IB liB* 100? 

II yoa laka laa wia — rtf 4WM «< 
Um 1 20. what fcipf— ■? 

Cnaae*tl»two25aiaUaa300l« 
uMk«r ubImi 4uul •«* li it n*k«« 
■ay difference 



-X 



13 



Ghost Maze 



It's a creepy sort of place- The identical dark corridors don't seem to go anywhere. It 
might even be haunted. Too can only see straight la front of you, and yon can only 
move in the direction in which you are facing. Yon can turn left or right, but this won't 
actually move you anywhere, It will fust show you another view. All you have to do is 
find the cross which marks the way out. Your position is marked with a Y and walls 
are marked P. 

Gulp! It is haunted. Ghouls are shown by a letter G. If you get right up next to one 
you will be whisked away to another part of the maze, not knowing where you are or 
in which direction you are facing. Here are the keys you can use: X moves you forward. 
N turns you to the left (through BO ), M turns you to the right (through 90 ) 



lO DIM E<70> 
20 DIM V*<4,3> 
30 DIH FC3)- 

eo let **--- 

30 LET H*-WS*"000OO0000O- 
60 LET WS-M**-0I11 lOOl 10" 
70 LET WS-MS+-0O lOO I MOO- 
BO LET MS-MS+-0O1 1010110" 
90 LET w*-M**-OI 101O01O0" 
lOO LET MS-WS+-OOI 1111100" 
110 LET to* -MS* "0000009000 " 
120 FOR 1-1 TO 70 
*0"?m*aw30 LET E(|)-VAL<toS<I TO Il> 
MO NEXT I 
ISO LET 8— 1 

' LSI G-12 



are* (amy) lot Um 

— «p a mini yrid within tka swat, 
which to tW pari elll that row cm 

•MMltotCfMt. 

•tooa#ooseeo for data to fill on« row 



ibo data for tho m*i« 
;0 wall;! oitt. 



Laaptrtacli sent tkod 
•ttot.C 

MtlMUBfeoroftt 

■■eitte lfceatarl 



*C*m*mi 70 LET X-INT (RN0»50J *10 



IBO IF EIIK» THEM GOTO 170 



190 GOSUB B60 



for yo«. 

Iflhttpoaattaato 
too* bock for «■* 

COHIO 



210 IF X«G*1C> OR X-G-IO THEN GOTO 1 70 
220 IF X-G*l OR X-G-l THEN GOTO 170 
230 LET H-H»l 



C fcs SSi • adl nrti o e rWyoototacoat 
■tortofgora* 

Caeefsi ST roe oro oaxt to o ftkoat aad 
Too to 

lac laaeao — ilwi of 



240 IF H-3 THEN GOSUB 860 



LET AS-INKEY* 

IF AS--- THEN GOTO 260 

IF AS--M- THEM LET D-D* 1 

IF AU-"N" THEN LET D-D-l 

IF D-3 THEN LET D-l 

IF D-O THEN LET D-4 

IF AtK>"X" THEN GOTO 210 

IF D-l AND E<X-10>00 THEM LET X-X 

IF D-3 AND E<X + 10>00 THEM LET X- 

IF D-2 AND EIKMIOO THEN LET X 

IF D-4 AMD E(X-IXX) THEM LET X 

IF EOU-V THEN GOTO 930 

GOTO 210 ^ — 



■ Cooo to amb-rotmao to raor* sheet 
rrmrrimavma. 

Go— to ■mb-roeneo ithlss; 
•ocrJaa of raatM yoe cea mo. 



Ifyoadool 



Caocka if yo« ha r* reached «xH 
Con back for a*xt BWTO If too 



Add noises 




390 FOR I- I TO 4 

400 LET T-I-i 
4O*7BA*410 GOTO 380*40*D 

420 LET Fll)«X-10aT»l 

430 LET F<2)-X-10aT 

440 LET F(3)-X-tO»T-l 

4SO GOTO 370 

460 LET FC1>*X*10«T 

470 LET F<2)-X»T 

4BO LET F(3)-X-10*T 

490 GOTO 370 

300 LET F(l>-I*10«-T-I 

310 LET FC2)-XMOoT 

320 LET F<3>-XMO«T+I 

330 GOTO 370 

340 LET Fdl-X-T-IO 

330 LET Ff2l-X-T 

560 LET FC3>-X-T«TO 

370 FOR J-l TO 3 - 

i IF FtJIM OR F<J>>69 THEN 

390 IF E<F(J>)-0 THEN LET V% t I 

600 IF E<F(J))-1 THEN LET V» < I 

MO IF E<F(J)>««» THEN LET V» < I 

620 IF E<F<J»>-2 THEN LET V4U 

630 NEXT J r— 

640 NEXT I 

630 LET V»U,2>-V 
a4j660 CLS 

670 PRINT 

680 pRINT-aaao GHOST NAZE •••• 

690 PRINT 

^00 PRINT "FORWARD 

710 PRINT "TURN RIGHT »" 

720 PRINT "TURN LEFT N~ 

730 FOR I-I TO 3 

740 PRINT 

730 NEXT I 

760 FOR 1-4 TO I STEP-1 

770 LET P»-"- 

700 FOR J-3 TO 1 STEP -1 

790 LET P»»pg»V»U.J> 

GOO NEXT J 

BIO PRINT TAB(7>tP4 

S20 NEXT I 

030 RETURN — 

G40 LET V4<I.J>--#- 

OSO GOTO 630 

660 LET E<6)-l 
aK*7w6#»70 LET G-lNT<RND*3O»*10 

GOO IF EIGX>1 THEN GOTO 070 

690 LET E(6)-2 

9uO LET H-O 

910 LET S-S«l 

920 RETURN 

930 PRINT "YOU HAVE ESCAPED" 

940 PRINT "IN "»S»3*H!" NOVES" 

930 STOP 



TW tawlag am tha laft will w orh am a ZXI I . T 
oimneomtmmtmnmMkmtmmcmmmmmmbmiom. 

VH3 CLEAR 

130 LET ECI>-VAL(MID«(W4, I. 1>) 

170 LET X-INT (RND4 I > *30) ♦lO 
^■170 LET X-INT (RNDC0>*30)*lO 
*Oaa*2O0 LET D- INT (RND( I > »4) ♦ 1 
V»200 LET D-INT(RND(0)»4>*| 
•233 LET «•--- 
•260 IF PEEK<-16364>>127 
"l THEN GET A* 

I *260 LET A«*INKEYft(0> 
6260 GET A* 
O260 LET Aft -KEY* 
a«4IO ON O GOTO 420,460,300,340 
•660 HOME 

6660 PRINT CHR»(147> 
• Aft LET 6*INT(RND(1 )*30)«10 

■^■070 lET G-INT(RMD<0>*30>«10 



Add better symbols 



a Try rapt 

m niovii 

chaagaa 



Trr rapiaclng Uw aymbota • , O, T 
* with graphics character* (and 
loo). Tfcfe will iaroH-a 



GOTO G40 
,J)--#- 
# J>-" " 



which caJcaJaia* 
MJHm yoo caa aaa f roaa 



h) which charactara to pa* is 

ipam 

Oprbataoaf 



Make the maze bigger 

Thxi aaM la baaed on a gnd 

O0wtaaNwflT0aa«araa.Toi 

biggai yom — d to chaaaja tha 

following liaaa, replacing N with tha 

number of aqaarea you warn la yoar 

aaw grid. (H ml ha a waJtlpie of 

10) 

1 Raplaca 70 with you aambar . N 

50-110 Add axtra Una* of la and Oa at 

55. 65 etc. ao that tha total naabavetf 

character* In tha grid la If 

120 Raplac* 70 with N 

1 70 and 070: Raplaca 50 with H 20 

S40R*place»9withN I 



Ivavroattea foe amoving ghoat avary 
rWigaaa 



rVf mmm%Mttm\ fdwa* aVarf awf 

**V*pa^ap>B}|a>v »V*a a*aa**a awa 



Seance 



Messages from the Spirits are coming through, letter by 
letter. They want you to remember the letters and type them 
into the computer in the correct order. If you make mistakes, 
they will be angry - very angry . . . 

Watch for stars on your screen - they show the letters in the 
Spirits' messages. 



lO LET S-O ■ 

20 LET O-O 
l*0B*a#30 LET CS 
*840 CLS 
30 PRINT 

AO PRINT TAB<8>t -SEANCE- 
70 FOR !•! TO 8 
BO LET X«6«l 
90 LET Y-S 

tOO LET AS-CMR*(CS*1> 
ISO GOSUB 710 
I20 LET Y-ll 

I 30 LET AS«CHRS<CS*22-1 > 
140 GOSUB 710 
ISO NEXT I 
160 FOR l-I TO S 
170 LET X-3 



l*OV8a«490 FOR T-l TO 20 

3O0 NEXT T 

3IO LET AS- 

32t» GOSUB 7IO 

350 NF»T I 

• S40 LET AS- 

3SO LET X-O 

360 LET V-13 

TJ70 GOSUB 710 

380 INPUT R* 

5TO IF RS-PS THEN 80T0 670 

&OO LET G-G'l 

1 610 IF G-l THEN PRINT "THE 

BEGINS TO SHA»k~ 

620 IF B-2 THEN PRINT "THE 
BULB SHATTERS" 

630 IF 6-3 THEN 0OT0 730 



How the 
program 
works 

Aftar yew hava typed 
pUrtdltafewanes, 

*e* If y om c aji work 
ituv«?k Um pfvuiu* 
liaea sad aea what thay 
all do (Hint D Is a 
▼artabie which tell* 
Uwcoaptut •• which 
of tha •*•*!*- 1.2. 
3o*4-Umh 

hv) 



ISO LET V-3»I l^v|iS64o FOR T-l TO 100 

1 9(» ItT AS=CHRS<CS»27-I > 630 NEXT T 

2O0 GOSUB 710 bbQ GOTO 40 

2IO LET X-16 670 LET S-S*N 

220 LET AS«CHRS<CS*B»1> 68O IF S<SO THEN GOTO 4U 

230 GOSUB 7IO 690 PRINT "THE SPIRITS HAVE 

240 NEXT [ 70O STOP 

230 LET PS«-~ 4KO7Sa#710 PRINT AT V.XlASt 

•OV«A#2AO LET N-INT<RNDe4*3» rju HI UIRN 

FOR I-I TO N 730 PRINT "A PAIR OF CLAMMY HANDS 

280 LET AS-"*" GRASPS YOUR NECK • - 

#0V«a«290 LET L-1NT<RND»26«1) 740 STOP 

3O0 LET 8S»CHRS(CS*L) 

310 LET PS»P**SS |- ■>■■■ lfaihs« wfTI luiimm ■ TTtfl Tor 

320 LET D-4 iT 

330 IF L<22 THEN LET D-3 ,*o^ A# , 

IF L 14 THEN LET 0-2 ^^^#*o HO** 

350 IF L<9 THEN LET D-l A . lt hunt dmcuti 



+0/8a*360 GOTO 340*30»D 
370 LET Y-6 
380 LET X-L»6 
390 BOTO 4BO 
400 LET X-I3 
4 10 LET V-L-3 
420 GOTO 480 
430 LET V-10 
MO LET X-28-L 
4SO GOTO 4BO 
460 LET X-A 
4 70 LET Y-32-L 
4BO GOSUB 710 



L4M4f0ceatrola 
tht apead *i which 
the Mtn appeal 

Chase* it tea 

lower uatbfr to 
aplhe 



t#OTVa#SO LET CS-+4 

mo ><wm 

*4'> HWINT CHRSU47J 
IOat;'(H'Lll N- INI 1PMDI 1>*4*3> 

V>//.u IFT N-INI <KN0<0>*4« 
•0*#7W Ml I INI'WlD<l)t?Mll 

i_ _ y y*o 1 ei i-iMnwe(o>»?j.«n 
l80?Ba#:i*o on d ooto 370,400.430,4*0 

14*0 FOB T-l TO lOO 
*OV*ja*4V<j FOR T-| TO aOO 
I MO FOR T-l TO SOO 
8CPW ■<»«'' I OR T-l IO IOOO 
^ #710 PRINT TMII.YIIMI 

#7IO VTABfTI |MT*SH1*I> (PRINT AS 
A/IO PRINT O#**<I9)iF0A ►'-I TO ViPRINTi 
MEITiPRINT IMIIMM 
INI*".?«V*I.*ei 
710 PRINT*U»4«V»7*I.A«I 
O'lO PLOT i.V.AS 





Answers to puzzles 



I solutions to the puzzles set in this book. Too may find that 
your answer* axe different but if they work on your computer this doesn't matter. 
Check, though, that your answers are as neat and straightforward as the ones given 



Computer Nightmare (page 3) 



isjovaaero let m*-chr*<xnt<rnd*26'»3b 

tOO PRINT TAB<3> IMS 

220 IF FIOW THEN BOTO 240 



LET S-S*10*<CODE<NS>-38) 



* l»n» t A»d prtati U < 
efsi 



190 LET WS-0*t»( INT CRND*26+63> ) 

LET NS-CHRS<INT(RNDr I ) •2b*t>r>t > 
VSJ90 LET Ne»CHR«<INT<RN0<0>*2&»43>> 
1230 LET S-S»IO«<CODE (MS l-&S> 
*00«A*>230 LET 5-S*10*(A9C«NS) -65) 



Number Wizard (page S) 




AIM 



\ 



3 LET 

4 LET 



L-oT. 

w-oj 



LET L-LO- 

340 euro 390 

380 LET M-W+1- 
390 PRINT 
4O0 PRINT "THE 
410 PRINT 
420 PRINT " 
430 FOR B-t TO 
440 NEXT 
430 GOTO 30 



SM 



sser ef usms y©« bj »• 



rfiaewiwlM^ 





piderwoman (page 9) 



3 LET NB-O 



333 LET NG-NB*! 



3A0 IF OS-TS THEN BOTO 370 
362 PRINT -**}' THAT'S 
344 LET G-fi.l 

344 IF NB-2 THEN BOTO 410 

34B BOTO 230 




Usborne Computer Books 

Usborne Computer Books are colourful, straightforward and easy-to- 
understand guides to the world of home computing for beginners of all ages 

Usborne Guide to Computers A colourful introduction to the world of 
computers. "Without question the best general introduction to computing I have 
ever seen. "Personal Computer World 

Understanding the Micro A beginner's guide to microcomputers, how to use 
them and how they work. "This introduction to the subject seems to get 
everything right. "Guardian 

Computer Programming A simple introduction to BASIC for absolute 
beginners. ". . . lucid and entertaining . . ."Guardian 

Computer and Video Games All about electronic games and how they work, 
with expert's tips on how to win. "The ideal book to convert the arcade games 
freak to real computing. "Computing Today 

Computer Spacegames, Computer Battlegames Listings to run on the ZX81 , 
Spectrum, BBC, TRS-80, Apple, VIC 20 and PET. "Highly recommended to 
anyone of any age. "Computing Today 

Practical Things to do with a Microcomputer Lots of programs to run and a 
robotto build which will work with most micros. 

Computer Jargon An illustrated guidetoallthejargon. 

Computer Graphics Superbly illustrated introduction to computer graphics 
with programs and a graphics conversion chart for most micros. 

Write Your Own Adventure Programs Step-by-step guide to writing adventure 
games programs, with lots of expert's tips. 



Machine Code for Beginners A really simple 
introduction to machine code for 
the Z80 and 6502. 

Better BASIC A beginner's guideto writing 
programs in BASIC. 

InsidetheChip Asimpleandcolourful 
account of how the chip works and what 
it can do. 
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